home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / Talisman bbs - Novaterm 9.3.D64 / nova.BBS mode (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  15.4 KB  |  422 lines
  1. 10 data300,1200,2400,4800,9600,19200,38400
  2. 20 poke787,peek(186):ifpeek(6)=255thenpoke45,peek(174):poke46,peek(175):clr:goto70
  3. 30 ifpeek(787)<8orpeek(787)>16thenpoke787,8
  4. 40 ifpeek(2)<1orpeek(2)>2thenpoke2,1:load"nova9.3-1.ml",peek(787),1
  5. 50 ifpeek(2)=1thenpoke2,2:load"nova9.3-2.ml",peek(787),1
  6. 60 poke2,0:poke55,48:poke56,132:poke643,48:poke644,132:sys38436:clr
  7. 70 open5,2,0,chr$(6):ml=38400
  8. 80 sl=52608:dt=usr(2):sa=usr(4):pt=49161:op=ml+15:xm=1024:rv=xm+256
  9. 90 md=52224:m1=md+18:sn=peek(648)*256:q$=chr$(34):dimms$(20),bd$(6)
  10. 100 lc$="":of$="":nc=0:sc=0:nu=0:nd=0:nf=0:mb=peek(m1):fori=0to6:readbd$(i):next
  11. 110 sp$="                                       ":dn$=""
  12. 120 pokesa,peek(sa)or128:pokesa+4,peek(sa+4)or128:poke6,176
  13. 130 dp=peek(787):ifdp<8ordp>16thendp=8
  14. 140 open15,dp,15:dp$="0:":gosub4090:d%(1)=dp:d$(1)=dp$:dd=1:syssl+6:ca=peek(780)
  15. 150 f1$="login.txt":f2$="menu.txt":f3$="logout.txt":gosub720
  16. 160 open2,dp,2,dp$+"\stats":input#15,e:ife>19thenclose2:goto180
  17. 170 input#2,lc$,of$,nc,sc,nu,nd,nf:close2
  18. 180 if(peek(m1+4)and1)andca=0thenpoke780,mb:sysml+33:sysmd+9:sysmd+3
  19. 190 print"[147]"tab(10)"[206]ovaterm 9.3 [194][194][211] mode":print"[197]nter the time: [200][200]:[205][205]";
  20. 200 poke211,16:p9=5:gosub2410:ifi$=""then
  21. 210 ifmid$(i$,3,1)<>":"then190
  22. 220 h=val(left$(i$,2)):m=val(mid$(i$,4,1))*16+val(mid$(i$,5,1)):a=0:ifh>12thenh=h-12:a=1
  23. 230 ifh=0orh=12thenh=12:a=1-a
  24. 240 h=128*a+h+int(h/10)*6:poke56587,h:poke56586,m:poke56585,s:poke56584,0
  25. 250 p=1
  26. 260 print"[147]"tab(10)"[206]ovaterm 9.3 [194][194][211] mode"
  27. 270 printtab(15)"[211]etup menu":printtab(15)"[163][163][163][163][163][163][163][163][163][163]"
  28. 280 print" [211]ysop name[160] : "sy$:print" [194][194][211] name[160]   : "bb$
  29. 290 print" [211]ystem pswd[160]: "pw$:print" [211]ysop pswd[160] : "ps$
  30. 300 print" [207]pening msg[160]: "f1$:print" [205]ain menu[160]  : "f2$
  31. 310 print" [204]ogoff msg[160] : "f3$
  32. 320 print" [211]ystem drive[160]    :"str$(dp)","left$(dp$,1):print" [193]vailable drives[160]"
  33. 330 print" [211]ave configuration[160]":print" [204]oad configuration[160]":print" [211]tart [194][194][211][160]"
  34. 340 d=4:tb=1:mx=15:gosub3920:poke211,15:ifp>9thenpoke211,20
  35. 345 p9=-23*(p<5)-16*(p>6andp<9)-5*(p=10):ifp9thengosub2410
  36. 350 onpgoto360,380,400,410,,430,440,450,,470,760,,660,710,960
  37. 360 sy$=i$:goto460
  38. 380 bb$=i$:goto460
  39. 400 pw$=i$:goto460
  40. 410 ps$=i$:goto460
  41. 430 f1$=i$:goto460
  42. 440 f2$=i$:goto460
  43. 450 f3$=i$
  44. 460 print""left$(dn$,p+d)tab(15)left$(i$+sp$,p9):goto280
  45. 470 ifi$=""then280
  46. 480 j=0:fori=1to5:ifmid$(i$,i,1)=","thenj=i:i=5
  47. 490 next:ifj=0then520
  48. 500 a=val(mid$(i$,j+1)):ifa<0ora>19then520
  49. 510 dp$=mid$(str$(a),2)+":"
  50. 520 a=val(i$):ifa<8ora>16then280
  51. 530 close15:open15,a,15:close15:if(128andst)=0thendp=a
  52. 540 open15,dp,15:goto280
  53. 660 print#15,"s"dp$"\bbs config":open2,dp,2,dp$+"\bbs config,s,w"
  54. 670 print#2,q$sy$:print#2,q$bb$:print#2,q$pw$:print#2,q$ps$:print#2,q$f1$
  55. 680 print#2,q$f2$:print#2,q$f3$:print#2,dp:print#2,q$dp$
  56. 690 print#2,dd:fori=1todd:print#2,q$dd$(i):print#2,d%(i):print#2,q$d$(i):next
  57. 700 close2:goto280
  58. 710 gosub720:goto280
  59. 720 open2,dp,2,dp$+"\bbs config":input#15,e:ife>19thenclose2:return
  60. 730 input#2,sy$,bb$,pw$,ps$,f1$,f2$,f3$,dp,dp$,dd
  61. 740 fori=1todd:input#2,dd$(i),d%(i),d$(i):next:close2:return
  62. 760 print"[147]"tab(10)"[206]ovaterm 9.3 [194][194][211] mode":pp=p:p=1
  63. 770 printtab(9)"[196]isk device setup menu":printtab(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  64. 780 print" [196]irectory category      [196]evice  [196]rive":fori=1todd
  65. 790 print" "left$(dd$(i)+sp$,23)"  "d%(i)tab(35)left$(d$(i),len(d$(i))-1);
  66. 800 printtab(38)"[160]":next:printsp$:print" [193]dd a directory[160]   "
  67. 810 print" [196]elete a directory[160]":print" [209]uit[160]              ":printsp$
  68. 820 d=5:tb=1:mx=dd+4:gosub3920:ifp=mxthenp=pp:goto260
  69. 830 sysml+18:ifp=mx-1andd>1thendl=1:goto780
  70. 840 ifp=mx-2thendl=0:p=p-1:print"[145]";:ifdd=10then780
  71. 850 ifdl=0ordd=1then890
  72. 860 fori=p+1todd:dd$(i-1)=dd$(i):d%(i-1)=d%(i):d$(i-1)=d$(i):next
  73. 870 dl=0:dd=dd-1:ifp>ddthenp=dd
  74. 880 goto780
  75. 890 poke211,1:p9=23:gosub2410:ifi$>""thendd$(p)=i$
  76. 900 ifi$=""andp=mx-1then780
  77. 910 print"[145]";:poke211,27:p9=2:gosub2410:a=val(i$):ifa>=8anda<=15thend%(p)=a
  78. 920 print"[145]";:poke211,35:p9=2:gosub2410:a=val(i$)
  79. 930 ifa>=0anda<20thend$(p)=mid$(str$(a),2)+":"
  80. 940 ifp>ddthendd=p
  81. 950 goto780
  82. 960 rn=8-(peek(56577)and8):ifpeek(m1+4)and1then980
  83. 970 print"[147][211]et [207]-[193] switch to [193]nswer and hit [210]eturn[146]":wait198,1:geta$
  84. 980 print"[147][204]ast caller: "lc$:print"[207]ff at     : "of$
  85. 990 print"[206]umber of calls :"nc:print"[211]ysop calls     :"sc
  86. 1000 print"[213]ploads         :"nu:print"[196]ownloads       :"nd
  87. 1010 print"[198]eedback        :"nf
  88. 1020 print"[201]nitializing modem...":bd=mb:poke780,mb:sysml+33:sysmd+9
  89. 1030 print"[145][215]aiting for call...  "
  90. 1040 print"[198]1[146]:[209]uit  [198]3[146]:[204]ocal mode  [198]7[146]:[211]etup menu"
  91. 1050 pokesa+14,peek(sa+14)and127:lc=0:xp=0:sy=0:cd=0
  92. 1060 dd$=dd$(1):dv=d%(1):dv$=d$(1):close14:open14,dv,15
  93. 1070 sysml+9:if(peek(56577)and8)=rnthen1130
  94. 1080 syssl+6:ifpeek(780)then1160
  95. 1090 geta$:ifa$="[133]"then2250
  96. 1100 ifa$="[136]"then250
  97. 1110 ifa$="[134]"thenprint"[147] [204]ocal mode ":pokesa+14,peek(sa+14)or128:sysmd+3:lc=1:goto1170
  98. 1120 goto1070
  99. 1130 print"[195]all answered...waiting for carrier":sysmd+6
  100. 1140 syssl+6:ifpeek(780)=0then980
  101. 1150 bd=peek(m1+1):poke780,bd:sysml+33
  102. 1160 print"[147] "bd$(bd)" baud connection "
  103. 1170 print" [146][157]";:s$="[133][215]elcome to "+bb$+" on [206]ovaterm 9.3[133]":sysop
  104. 1180 s$="[133][197]nter your name: ":sysop:p9=25:gosub2510:ifi$=""then1180
  105. 1190 n$=i$:tr=0:ifpw$=""then1230
  106. 1200 s$="[133][197]nter system password: ":sysop:p9=25:gosub2510:ifi$=pw$then1230
  107. 1210 s$="[133][201]nvalid password[133]":sysop:tr=tr+1:iftr<3then1200
  108. 1220 s$="[133][193]ccess denied![133]":sysop:goto1980
  109. 1230 gosub3880:t1$=tm$:tr=0:ifn$<>sy$then1300
  110. 1240 s$="[133][197]nter sysop password: ":sysop:p9=25:gosub2510:ifi$=ps$then1270
  111. 1250 s$="[133][201]nvalid password[133]":sysop:tr=tr+1:iftr<2then1240
  112. 1260 goto1220
  113. 1270 s$="[133][211]ysop access granted[133]":sysop:sy=1
  114. 1280 open2,dp,2,dp$+"feedback":input#15,e:close2
  115. 1290 ife=0thens$="[133][217]ou have messages waiting.[133]":sysop
  116. 1300 iff1$>""thenf$=f1$:gosub2690
  117. 1310 print" [146][157]";:ifxpthen1420
  118. 1320 iff2$>""thenf$=f2$:gosub2690:ife<20then1420
  119. 1330 s$="[133]"+left$(sp$,(33-len(bb$))/2)+bb$+" menu[133]":sysop
  120. 1340 s$="[133][$][196]irectory          [[210]]ead textfile[133]":sysop
  121. 1350 s$="[#][195]hange drive       [[212]]erminate[133]":sysop
  122. 1360 s$="[[195]]hat request        [[213]]pload file[133]":sysop
  123. 1370 s$="[[196]]ownload file       [[215]]rite textfile[133]":sysop
  124. 1380 s$="[[198]]eedback to sysop   [[216]]pert toggle[133]":sysop
  125. 1390 s$="[[208]]rotocol[133]":sysop:ifsy=0then1420
  126. 1400 s$="[133][@][196]isk command       [[218]][210]ead feedback[133]":sysop
  127. 1410 s$="[[204]]og of callers[133]":sysop
  128. 1420 s$="[133][$,#,[195],[196],[198],[208],[210],[212],[213],[215],[216]]: ":sysop
  129. 1430 gosub2630:ifcdthen1990
  130. 1440 ifa$="?"ora$="h"thens$="[205]enu[133]":sysop:goto1320
  131. 1450 ifa$="@"andsythens$="[196]isk command[133]":sysop:goto3830
  132. 1460 ifa$="$"thens$="[196]irectory[133]":sysop:goto1610
  133. 1470 ifa$="#"thens$="[195]hange drive[133]":sysop:goto2130
  134. 1480 ifa$="c"thens$="[195]hat[133]":sysop:goto1660
  135. 1490 ifa$="d"thens$="[196]ownload[133]":sysop:goto2730
  136. 1500 ifa$="f"thens$="[198]eedback[133]":sysop:goto3360
  137. 1510 ifa$="l"andsythens$="[204]og of callers[133]":sysop:goto3800
  138. 1520 ifa$="p"thens$="[208]rotocol[133]":sysop:goto1740
  139. 1530 ifa$="r"thens$="[210]ead textfile[133]":sysop:goto1900
  140. 1540 ifa$="t"thens$="[212]erminate[133]":sysop:goto1950
  141. 1550 ifa$="u"thens$="[213]pload[133]":sysop:goto3090
  142. 1560 ifa$="w"thens$="[215]rite textfile[133]":sysop:goto2050
  143. 1570 ifa$="x"thens$="[197]xpert toggle[133]":sysop:goto2110
  144. 1580 ifa$="z"andsythens$="[210]ead feedback[133]":sysop:goto3770
  145. 1590 ifa$=chr$(13)then1310
  146. 1600 goto1430
  147. 1610 ifdd$>""thens$="[133][196]irectory: "+dd$+"[133]":sysop
  148. 1620 s$="[133]":sysop:open1,dv,0,"$"+left$(dv$,len(dv$)-1):get#1,a$,a$
  149. 1630 sysml+54:ifmid$(z$,7,1)="\"andsy=0then1630
  150. 1640 s$=z$+"[133]":sysop:ifright$(z$,1)<>"."andright$(z$,4)<>"free"then1630
  151. 1650 close1:gosub2240:goto1310
  152. 1660 s$="[133][208]aging sysop...":sysop:j=0:fori=1to5:s$=".":sysop
  153. 1670 fort=1to1500:next:geta$:ifa$="[133]"thenj=1:i=5
  154. 1680 next:ifj=0thens$="[133][133]"+sy$+" is not available.[133]":goto1310
  155. 1690 s$="[133][133][197]ntering chat[133][133]":sysop
  156. 1700 geta$:get#5,b$:ifa$>""thens$=a$:sysop
  157. 1710 ifb$>""thens$=chr$(peek(rv+asc(b$))):sysop
  158. 1720 ifa$<>"[133]"then1700
  159. 1730 s$="[133][204]eaving chat[133]":sysop:goto1310
  160. 1740 open1,dp,0,"$"+dv$+"prt.*":gosub2340:iferthenclose1:goto1310
  161. 1750 get#1,a$,a$:sysml+54:fl=0
  162. 1760 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"then1810
  163. 1770 f$="":fori=11to22:a$=mid$(z$,i,1):ifa$=chr$(34)theni=22:goto1790
  164. 1780 f$=f$+a$
  165. 1790 next:iff$=""then1760
  166. 1800 fl=fl+1:f$(fl)=f$:goto1760
  167. 1810 close1:iffl=0thens$="[133][206]o protocol files[133]":goto1310
  168. 1820 s$="[133][211]elect protocol:[133][133]":sysop
  169. 1830 fori=1tofl:s$=chr$(i+192)+") "+f$(i)+"[133]":sysop:next:s$="[133][211]elect: ":sysop
  170. 1840 gosub2630:ifcdthen1990
  171. 1850 ifa$=chr$(13)thens$=a$:sysop:goto1310
  172. 1860 ifa$<"a"ora$>chr$(fl+64)then1840
  173. 1870 s$=chr$(asc(a$)+128)+"[133]":sysop:p=asc(a$)-64:f$="prt."+f$(p)
  174. 1880 open2,dv,0,dv$+f$:gosub2340:close2:ifer=0thengosub4340:pt$=f$(p):gosub3070
  175. 1890 goto1310
  176. 1900 s$="[133][198]ile name: ":sysop:p9=16:gosub2510:ifi$=""then1310
  177. 1905 ifleft$(i$,1)="\"andsy=0theni$=mid$(i$,2)
  178. 1910 s$="[133]":sysop:open2,dv,2,dv$+i$+",s":gosub2340:iferthen1940
  179. 1920 poke781,2:sysml+60:f=st:sysop:iff=0then1920
  180. 1930 gosub2240
  181. 1940 close2:goto1310
  182. 1950 gosub2360:ify=0then1310
  183. 1960 iff3$>""thenf$=f3$:gosub2690
  184. 1970 s$="[133][199]oodbye![133]":sysop
  185. 1980 sysmd:syssl+6:ifpeek(780)thenfort=1to2500:next:goto1980
  186. 1990 gosub3880:print" ":printn$" logged out at "tm$
  187. 2000 open2,dp,2,dp$+"\caller log,s,a":input#15,e
  188. 2010 ife>19thenclose2:open2,dp,2,dp$+"\caller log,s,w"
  189. 2020 print#2,left$(n$+"...............................",23)t1$"-"tm$:close2
  190. 2030 lc$=n$:of$=tm$:nc=nc+1:ifsythensc=sc+1
  191. 2040 gosub4090:goto980
  192. 2050 s$="[133][198]ile name: ":sysop:p9=16:gosub2510:ifi$=""then1310
  193. 2060 open2,dv,2,dv$+i$+",s,w":gosub2340:iferthen2100
  194. 2070 s$="[133][197]nter text one line at a time.[133]":sysop
  195. 2080 s$="[197]nter the @ symbol by itself to end.[133][133]":sysop
  196. 2090 p9=78:gosub2510:ifi$<>"@"thensysml+24:print#2,i$:sysml+21:goto2090
  197. 2100 close2:goto1310
  198. 2110 xp=1-xp:ifxpthens$="[133][197]xpert mode [207][206][133]":sysop:goto1310
  199. 2120 s$="[133][197]xpert mode [207][198][198][133]":sysop:goto1310
  200. 2130 ifdd=1thens$="[133][207]nly one drive available[133]":sysop:goto1310
  201. 2140 s$="[133][211]elect drive:[133][133]":sysop:fori=1todd:s$=chr$(i+192)+") ":sysop
  202. 2150 ifdd$(i)>""thens$=dd$(i)+"[133]":goto2170
  203. 2160 s$="[196]evice"+str$(d%(i))+", [196]rive "+left$(d$(i),len(d$(i))-1)+"[133]"
  204. 2170 sysop:next:s$="[133][211]elect: ":sysop
  205. 2180 gosub2630:ifcdthen1990
  206. 2190 ifa$=chr$(13)thens$=a$:sysop:goto1310
  207. 2200 ifa$<"a"ora$>chr$(dd+64)then1840
  208. 2210 d=asc(a$)-64:s$=chr$(d+192)+"[133]":sysop:dd$=dd$(d):dv=d%(d):dv$=d$(d)
  209. 2220 close14:open14,dv,15:close14:if128andstthen2140
  210. 2230 open14,dv,15:goto1310
  211. 2240 ifxpthenreturn
  212. 2245 s$="[133]* [200]it a key *":sysop:gosub2630:s$="[133]":sysop:return
  213. 2250 print"[211]ave stats?  [146][157]";
  214. 2260 geta$:ifa$<>"y"anda$<>"n"then2260
  215. 2270 ifa$="n"thenprint"no":goto2300
  216. 2280 print"yes":print#15,"s"dp$"\stats":open2,dp,2,dp$+"\stats,s,w":print#2,q$lc$
  217. 2290 print#2,q$of$:print#2,nc:print#2,sc:print#2,nu:print#2,nd:print#2,nf:close2
  218. 2300 poke6,255:open2,dp,0,dp$+"prog menu":input#15,e:close2:ife>19then2320
  219. 2310 loaddp$+"prog menu",dp
  220. 2320 open2,dp,0,dp$+"novaterm ?.?*":input#15,e:close2:ife>19thenend
  221. 2330 loaddp$+"novaterm ?.?*",dp
  222. 2340 er=0:input#14,e,e$:ife>19thener=1:s$="[133]"+e$+"[133]":sysop
  223. 2350 return
  224. 2360 s$="[133][193]re you sure? ":sysop
  225. 2370 gosub2630:ifcdtheny=0:return
  226. 2380 ifa$="y"thens$="yes[133]":sysop:y=1:return
  227. 2390 ifa$="n"thens$="no[133]":sysop:y=0:return
  228. 2400 goto2370
  229. 2410 i$="":open9,3
  230. 2420 poke212,0:get#9,b$:print"[157]"b$"[146][157]";
  231. 2430 geta$:ifa$=""then2430
  232. 2440 if(asc(a$)and127)<32then2470
  233. 2450 iflen(i$)=p9then2430
  234. 2460 i$=i$+a$:printa$;:goto2420
  235. 2470 ifa$=chr$(20)andi$>""theni$=left$(i$,len(i$)-1):print" [157][157] [157]";:goto2420
  236. 2480 ifa$=chr$(13)thenprintb$:close9:return
  237. 2490 ifa$=""thena$=b$:goto2450
  238. 2500 goto2430
  239. 2510 i$=""
  240. 2520 iflc=0thenget#5,b$:ifb$>""then2560
  241. 2530 iflc=0thensyssl+6:ifpeek(780)=0theni$="":cd=1:return
  242. 2540 geta$:ifa$=""then2520
  243. 2550 goto2570
  244. 2560 a$=chr$(peek(rv+asc(b$)))
  245. 2570 if(asc(a$)and127)<32then2600
  246. 2580 iflen(i$)=p9then2520
  247. 2590 i$=i$+a$:s$=a$:sysop:goto2520
  248. 2600 ifa$=chr$(20)andi$>""theni$=left$(i$,len(i$)-1):s$=a$:sysop:goto2520
  249. 2610 ifa$=chr$(13)thens$=a$:sysop:return
  250. 2620 goto2520
  251. 2630 iflc=0thenget#5,a$:ifa$>""then2660
  252. 2640 iflc=0thensyssl+6:ifpeek(780)=0thencd=1:return
  253. 2650 geta$:ifa$=""then2630
  254. 2660 a=peek(rv+asc(a$)):ifa>=97anda<=122thena=a-32
  255. 2670 ifa>=193anda<=218thena=a-128
  256. 2680 a$=chr$(a):return
  257. 2690 open2,dp,2,dp$+f$:input#15,e:ife>19thenclose2:return
  258. 2700 s$="[133]":sysop
  259. 2710 poke781,2:sysml+60:f=st:sysop:iff=0then2710
  260. 2720 close2:return
  261. 2730 iflcthens$="[133][195]an't download in local mode[133]":sysop:goto1310
  262. 2735 s$="[133][208]rotocol: "+pt$+"[133]":sysop:tt=0:if(peek(pt+14)and8)then2890
  263. 2740 s$="[133][198]ile name: ":sysop:p9=16:gosub2510:ifi$=""then1310
  264. 2750 ifleft$(i$,1)="\"andsy=0theni$=mid$(i$,2)
  265. 2760 ts=0:open1,dv,0,"$"+dv$+i$:gosub2340:iferthenclose1:goto1310
  266. 2770 get#1,a$,a$:sysml+54:sysml+54:close1
  267. 2780 ifright$(z$,1)="."orright$(z$,4)="free"thents=1
  268. 2790 iftsthens$="[133][198]ile not found[133]":sysop:goto1310
  269. 2810 tt$=mid$(z$,25,3):tp$=left$(tt$,1):tt=-(tp$="p")-2*(tp$="s")-3*(tp$="u")
  270. 2820 s$="[133][198]ile name: "+i$+"[133][198]ile type: "+tt$+"[133][198]ile blocks:"+str$(val(z$))+"[133]"
  271. 2830 sysop:open2,dv,2,dv$+i$:gosub2340:iferthenclose2:goto1310
  272. 2840 gosub3355:s$="[133][194][194][211] ready to send file[133][208]ress [195]trl-[216] to abort[133]":sysop
  273. 2850 print" ":print"[194]locks sent :          [197]rrors :";
  274. 2860 pokept+16,tt:syspt-9:print:nd=nd+1
  275. 2870 ifpeek(pt+15)thens$="[133][196]ownload aborted[133]":sysop:nd=nd-1
  276. 2880 close2:goto1310
  277. 2890 s$="[133][197]nter a blank file name to end.[133][133]":sysop:fl=0               
  278. 2900 s$="[206]ame of file"+str$(fl+1)+": ":sysop:p9=16:gosub2510:ifi$=""then2950
  279. 2910 ifleft$(i$,1)="\"andsy=0theni$=mid$(i$,2)
  280. 2920 open2,dv,2,dv$+i$:input#14,e:close2:ife>19then2900
  281. 2940 fl=fl+1:f$(fl)=i$:iffl<9then2900
  282. 2950 f$(fl+1)="":iffl=0then1310
  283. 2960 s$="[133][194][194][211] ready to send files[133][208]ress [195]trl-[216] to abort[133]":sysop
  284. 2970 syspt-9:ff=0:fory=1tofl+1:i$=f$(y):ifi$=""then3030
  285. 2980 open1,dv,0,"$"+dv$+i$:gosub2340:iferthenclose1:goto1310
  286. 2990 get#1,a$,a$:sysml+54:sysml+54:close1
  287. 3000 tp$=mid$(z$,25,1):tt=-(tp$="p")-2*(tp$="s")-3*(tp$="u")
  288. 3010 open2,dv,2,dv$+i$:gosub2340:iferthenclose2:goto3050
  289. 3020 print" ":print"[211]ending "i$:print"[194]locks sent :          [197]rrors :";
  290. 3030 pokept+16,tt:syspt-9:close2:print
  291. 3040 ifpeek(pt+15)theny=fl+1
  292. 3050 ff=ff+1:next:ifpeek(pt+15)thens$="[133][196]ownload aborted[133]":sysop:ff=ff-1
  293. 3060 nd=nd+ff:goto1310
  294. 3070 pokept,1:pokept+18,dv:pokept+21,0:pokept+23,sp:pokept+24,val(dv$)
  295. 3080 pokept+14,peek(pt+14)or16:return
  296. 3090 iflcthens$="[133][195]an't download in local mode[133]":sysop:goto1310
  297. 3095 fl=0:s$="[133][208]rotocol: "+pt$+"[133]":sysop:if(peek(pt+14)and10)=0then3130
  298. 3100 b$="":ifpeek(pt+14)and8thenb$="s"
  299. 3110 h$="":s$="[133][200]ide the file"+b$+"? ":sysop:gosub2370:ifythenh$="\"
  300. 3115 gosub3355:s$="[133][194][194][211] ready to receive file"+b$+"[133][208]ress [195]trl-[216] to abort[133]"
  301. 3120 sysop:print" [145]";:goto3300
  302. 3130 s$="[133][198]ile name: ":sysop:p9=16:gosub2510:ifi$=""then1310
  303. 3140 open2,dv,2,dv$+i$:input#14,e:close2:ife<20thens$="[133][198]ile exists[133]":sysop:goto1270
  304. 3150 tp$="p":tt$="":ifpeek(pt+14)and1then3220
  305. 3160 s$="[133][198]ile type (prg,seq,usr): ":sysop
  306. 3170 gosub2630:ifcdthen1990
  307. 3180 ifa$=chr$(13)thens$=a$:sysop:goto1310
  308. 3190 ifa$<>"p"anda$<>"s"anda$<>"u"then3170
  309. 3200 tt=-(a$="p")-2*(a$="s")-3*(a$="u"):s$=mid$("prgsequsr",tt*3-2,3)+"[133]":sysop
  310. 3210 tp$=a$
  311. 3220 h$="":s$="[133][200]ide the file? ":sysop:gosub2370:ifythenh$="\"
  312. 3225 gosub3355:ifpeek(pt+14)and1then3285
  313. 3230 tt$=","+tp$:open2,dv,2,dv$+h$+i$+tt$+",w":gosub2340:fl=fl+1
  314. 3240 iferand(peek(pt+14)and8)=0then1270
  315. 3250 iferande=63theni$=left$(i$,len(i$)-1)+chr$(asc(right$(i$,1))+1):goto3230
  316. 3260 iferthensyspt-3:goto3310
  317. 3270 a=peek(pt+14)and11:ifaanda<8theni$=""
  318. 3280 ifi$=""thenprint"[145]";:goto3300
  319. 3285 iffl=0ora=0thens$="[133][194][194][211] ready to receive file[133][208]ress [195]trl-[216] to abort[133]":sysop
  320. 3290 print" ":print"[210]eceiving: "i$tt$:print"[194]locks recv :          [197]rrors :";
  321. 3300 pokept+16,tt:syspt-6:close2:print:nu=nu+1
  322. 3310 ifpeek(pt+15)thens$="[133][213]pload aborted![133]":sysop:print#14,"s"dv$i$:nu=nu-1:goto1310
  323. 3320 if(peek(pt+14)and11)=0ori$=""then1310
  324. 3330 tt=peek(pt+16):tp$=mid$("psu",tt,1):iftt=0thentt=1:tp$="p"
  325. 3340 iflen(i$)>1thenifmid$(i$,len(i$)-1,1)=","thentp$=right$(i$,1):i$=left$(i$,len(i$)-2)
  326. 3350 i$=left$(i$,16):goto3230
  327. 3355 s$="[133][193][211][195][201][201][160]translation during transfer? ":sysop:gosub2370:pokept+22,y:return
  328. 3360 li=0:gosub3880                                      
  329. 3370 s$="[133][198]rom: "+n$+"[133][212]ime: "+tm$+"[133][133][197]nter your message:[133][133]":sysop
  330. 3380 ifli=20thens$="[133][206]o more room[133]":goto3440
  331. 3390 fori=li+1to20:s$=right$(str$(i),2)+": ":sysop:p9=74:gosub2510:ifi$=""thenli=i-1:i=20
  332. 3400 ifi$>""thenms$(i)=i$
  333. 3410 next:ifli=0andms$(20)>""thenli=20:s$="[133][206]o more room[133]":sysop
  334. 3420 s$="[133][[193]]bort          [[195]]ontinue message[133][[196]]elete line    [[197]]dit line[133]"
  335. 3430 sysop:s$="[[201]]nsert line    [[204]]ist message[133][[211]]ave message[133]":sysop
  336. 3440 s$="[133][[193],[195],[196],[197],[201],[204],[211]]: ":sysop
  337. 3450 gosub2630:ifcdthen1pos90
  338. 3460 s$=a$+"[133]":ifa$="?"thensysop:goto3420
  339. 3470 ifa$="a"thensysop:goto3750
  340. 3480 ifa$="c"thens$=s$+"[133]":sysop:goto3380
  341. 3490 ifa$="d"thensysop:goto3580
  342. 3500 ifa$="e"thensysop:goto3610
  343. 3510 ifa$="i"thensysop:goto3650
  344. 3520 ifa$="l"thensysop:goto3680
  345. 3530 ifa$="s"thensysop:goto3700
  346. 3540 goto3450
  347. 3550 l=0:s$="[133][204]ine number: ":sysop:p9=2:gosub2510:ifi$=""thenreturn
  348. 3560 l=val(i$):ifl<1orl>lithenl=0
  349. 3570 return
  350. 3580 ifli=0then3440
  351. 3590 gosub3550:ifl=0then3440
  352. 3600 fori=l+1toli:ms$(i-1)=ms$(i):next:li=li-1:goto3440
  353. 3610 gosub3550:ifl=0then3440
  354. 3620 s$="[133]"+right$(str$(l),2)+": "+ms$(l)+"[133]"+right$(str$(l),2)+": ":sysop
  355. 3630 p9=74:gosub2510:ifi$=""then3440
  356. 3640 ms$(l)=i$:goto3440
  357. 3650 ifli=20then3440
  358. 3660 gosub3550:ifl=0then3440
  359. 3670 fori=litolstep-1:ms$(i+1)=ms$(i):next:li=li+1:ms$(l)="":goto3440
  360. 3680 s$="[133]":sysop:fori=1toli:s$=right$(str$(i),2)+": "+ms$(i)+"[133]":sysop:next
  361. 3690 goto3440
  362. 3700 gosub2360:ify=0then3440
  363. 3710 s$="[133][211]aving...[133]":sysop:open2,dp,2,dp$+"feedback,s,a":input#15,e
  364. 3720 ife>19thenclose2:open2,dp,2,dp$+"feedback,s,w"
  365. 3730 print#2:print#2,"[198]rom: "n$:print#2,"[212]ime: "tm$:print#2
  366. 3740 fori=1toli:print#2,ms$(i):next:close2:nf=nf+1:goto1310
  367. 3750 gosub2360:ify=0then3440
  368. 3760 s$="[133][193]borted[133]":sysop:goto1310
  369. 3770 f$="feedback":gosub2690:ife>19thens$="[133][206]o feedback[133]":sysop:goto1310
  370. 3780 s$="[133][196]elete messages? ":sysop:gosub2370:ifythenprint#15,"s"dp$"feedback":nf=0
  371. 3790 goto1310
  372. 3800 f$="caller log":gosub2690:ife>19thens$="[133][206]o caller log[133]":sysop:goto1310
  373. 3810 s$="[133][196]elete caller log? ":sysop:gosub2370:ifythenprint#15,"s"dp$"caller log"
  374. 3820 goto1310
  375. 3830 s$="[133][196]evice"+str$(dv)+", drive "+left$(dv$,len(dv$)-1)+"[133]":sysop
  376. 3840 s$="[133][196][207][211]>":sysop
  377. 3850 p9=50:gosub2510:ifi$=""then1310
  378. 3860 print#15,i$:input#15,e1$,e2$,e3$,e4$:s$="[133]"+e1$+","+e2$+","+e3$+","+e4$+"[133]":sysop
  379. 3870 goto3840
  380. 3880 h=peek(56587):m=peek(56586):a=peek(56584)
  381. 3890 a$="am":ifh>127thena$="pm":h=hand127
  382. 3900 h=h-int(h/16)*6:m=m-int(m/16)*6:m$=mid$(str$(m),2):ifm<10thenm$="0"+m$
  383. 3910 tm$=mid$(str$(h),2)+":"+m$+a$:return
  384. 3920 gosub4080:ifpeek(sn+40*(p+d)+tb)=32andpeek(sn+40*(p+d)+38)<>96then3980
  385. 3930 sysml+18
  386. 3940 geta$:ifa$=""then3940
  387. 3950 a=asc(a$)and127:ifa=13then4070
  388. 3960 ifa=19ora=17thensysml+18
  389. 3970 ifa$="[133]"thenqq=mx:goto4050
  390. 3980 ifa$=""thenp=p+1:printa$;:ifp>mxthenp=1
  391. 3990 ifa$="[145]"thenp=p-1:printa$;:ifp<1thenp=mx
  392. 4000 ifa$=""thenp=1
  393. 4010 ifa=17ora=19then3920
  394. 4020 if(a<49ora>57)and(a<65ora>mx+55)then3940
  395. 4030 qq=a-48+(a>64)*7:ifqq>mxthen3940
  396. 4040 ifpeek(sn+40*(qq+d)+tb)=32andpeek(sn+40*(p+d)+38)<>96thenqq=qq+1
  397. 4050 ifqq=pthen4070
  398. 4060 sysml+18:p=qq:gosub4080:sysml+18
  399. 4070 return
  400. 4080 print""left$(dn$,p+d)tab(tb-1);:return
  401. 4090 open2,dp,2,dp$+"nova data 9.3":input#15,e:ife>19thenclose2:return
  402. 4100 input#2,v$:ifv$<>"9.3"thenclose2:return
  403. 4110 fori=2to16:input#2,a$:next
  404. 4120 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,b,re,c8,c9,xo,xf,sp,sw,c,d,e,f
  405. 4130 fori=0to17:input#2,a:pokesa+40+peek(678)*18+i,a:next
  406. 4140 input#2,mi$,mo$,pt$,fo$:close2
  407. 4150 pokedt+25,b:pokedt+32,c:pokedt+8,d
  408. 4180 ifmo$>""thenf$="modem."+mo$:gosub4340:gosub4320:ife>19thenmo$=a1$
  409. 4190 ifpt$>""thenf$="prt."+pt$:gosub4340:gosub3070:ife>19thenpt$=a2$
  410. 4200 iffo$>""thenf$="font."+fo$:gosub4340:ife>19thenfo$=""
  411. 4230 f$="asc.standard":gosub4340
  412. 4240 poke53280,c1:poke53281,c2:poke646,c3:sysml+57
  413. 4260 ifsw=0thenpokedt+10,0:goto4300
  414. 4270 pokedt+10,1
  415. 4280 poke781,-222*(sw=1)-223*(sw=2)-215*(sw=3):sysml+63:a=peek(781)*256
  416. 4290 pokea+1,0:pokea+2,9
  417. 4300 ifmb>2thenmb=bd
  418. 4310 poke780,bd:sysml+33:return
  419. 4320 if(peek(m1+4)and2)=0thendi=0
  420. 4330 pokem1+4,(peek(m1+4)and3)ordi*4:mb=peek(m1):return
  421. 4340 sysml+24:poke780,dp:f$=dp$+f$:syssl+21:input#15,e:close2:sysml+21:return
  422.